home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / tgif.d64 / tgif-process (.txt) next >
Encoding:
Commodore BASIC  |  1995-03-03  |  21.4 KB  |  557 lines
  1. 10 GOSUB8000:GOTO20
  2. 15 POKEX,L:SYSPZ:PRINTMID$(M$,Q1%,LM-L1)"[146] ":L1=L1-Q1%:L=L-Q1%:L3=0:RETURN
  3. 20 FORNP=1TON:CM%=50:CE%=17:CF%=16:POKES+24,14
  4. 30 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKEX,0:POKEY,0:SYSPZ
  5. 40 PRINT"[150]                                        ";
  6. 50 PRINT"  PLAYER             MONEY     # LOANS  ";
  7. 60 PRINT"                                        ":PRINT"[146]"
  8. 70 FORL=1TON:POKEX,0:POKEY,L*2+3:SYSPZ:PRINT"[156] ";NA$(L)
  9. 80 POKEX,21:SYSPZ:PRINT"[153]$";M(L):POKEX,34:SYSPZ:PRINT"[150]";IU(L):NEXT
  10. 85 FORL=1TO10:PRINT"                                       ":NEXT:FG%=0
  11. 90 FORL=1TON:IFM(L)>=GTHENFG%=L
  12. 95 NEXT:IFFG%THEN8300
  13. 100 POKEX,4:POKEY,16:SYSPZ:PRINT"[129]IT'S YOUR TURN, "NA$(NP)
  14. 110 IFM(NP)>=0THEN150
  15. 120 IU(NP)=IU(NP)+1:M(NP)=M(NP)+500:IFM(NP)<0THEN120
  16. 130 GOSUB370:POKEX,15:POKEY,18:SYSPZ:PRINT"[150]LOAN OFFICE":POKEX,0:POKEY,20:SYSPZ
  17. 140 PRINT"[156] YOU NEED TO BORROW MONEY TO CONTINUE!":GOSUB9900:GOSUB9905:GOTO30
  18. 150 IFIU(NP)=0ORM(NP)<575THEN200
  19. 160 L1=INT(M(NP)/575):IFL1>IU(NP)THENL1=IU(NP)
  20. 170 IU(NP)=IU(NP)-L1:M(NP)=M(NP)-575*L1:POKEX,11:POKEY,18:SYSPZ
  21. 180 GOSUB370:PRINT"[150]LOAN PAYMENT DUE!":POKEX,8:POKEY,20:SYSPZ
  22. 190 PRINT"[159]$";500*L1;"[219] $";75*L1;" INTEREST.":GOSUB9900:GOSUB9900:GOTO30
  23. 200 IFS(NP)=3THEN300
  24. 210 POKEX,10:POKEY,18:SYSPZ:PRINT"[155]DO YOU WANT TO BUY A":POKEX,9:POKEY,19:SYSPZ
  25. 220 PRINT"LOTTERY TICKET FOR $20"
  26. 230 IFNA$(NP)="COMMODORE"THENGOSUB9950:POKEX,33:SYSPZ:PRINT"[156]YES":GOTO275
  27. 235 POKEX,12:POKEY,21:JV=PEEK(56321):JV=15-(JVAND15):IFJVTHEN260
  28. 240 SYSPZ:PRINT"[150]";:GOSUB255:GOSUB9930
  29. 250 SYSPZ:PRINT"[155]";:GOSUB255:GOSUB9930:GOTO235
  30. 255 PRINT"UP=YES   DOWN=NO":RETURN
  31. 260 IFJV<>1ANDJV<>2THEN240
  32. 270 IFJV=2THENGOSUB350:GOSUB9050:GOTO300
  33. 275 GOSUB350:GOSUB9050
  34. 280 L=INT(89*RND(0))+11:L1=0
  35. 283 L1=L1+1:IFL(L1)=LTHEN280
  36. 284 IFL1=N*3THEN288
  37. 285 GOTO283
  38. 288 S(NP)=S(NP)+1:L(NP*3-3+S(NP))=L:M(NP)=M(NP)-20:POKEY,21
  39. 290 POKEX,10:SYSPZ:PRINT"YOU BUY TICKET #"L:GOSUB9900:GOTO30
  40. 300 CM%=70:POKEX,11:POKEY,21:SYSPZ:PRINT"[158]";:GOSUB330:GOSUB9930
  41. 305 IFNA$(NP)="COMMODORE"THENGOSUB350:GOTO340
  42. 310 JV=PEEK(56321):FR=JVAND16:IFFR=0THENGOSUB350:GOTO340
  43. 320 SYSPZ:PRINT"[129]";:GOSUB330:GOSUB9930:GOTO300
  44. 330 PRINT"PRESS FIRE TO PLAY":RETURN
  45. 340 GOSUB9050:GOSUB400:NEXTNP:GOTO20
  46. 350 POKES+1,CM%:POKES+5,9:POKES+15,17:POKES+4,CE%
  47. 360 GOSUB9940:POKES+4,CF%:GOSUB9940:RETURN
  48. 370 POKES+1,6:POKES+5,20:POKES+6,255:POKES+4,33:GOSUB9910:POKES+1,4
  49. 375 GOSUB9910:GOSUB9050:RETURN
  50. 400 PRINTCHR$(147):POKE53280,1:POKE53281,1:PRINT:PRINT:PRINT
  51. 410 PRINT"[156]     S    M    T    W    T    F    S"
  52. 420 PRINT"     U    O    U    E    H    R    A"
  53. 430 PRINT"     N    N    E    D    U    I    T"
  54. 440 PRINT"[144]  [213][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][201]"
  55. 460 PRINT"  [221]  1 [221]  2 [221]  3 [221]  4 [221]  5 [221]  6 [221]  7 [221]"
  56. 470 PRINT"  [171][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][179]"
  57. 480 PRINT"  [221]  8 [221]  9 [221] 10 [221] 11 [221] 12 [221] 13 [221] 14 [221]"
  58. 490 FOR L=15TO22STEP7
  59. 500 PRINT"  [171][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][179]"
  60. 510 PRINT"  [221]";L;"[221]";L+1;"[221]";L+2;"[221]";L+3;"[221]";L+4;"[221]";L+5;"[221]";L+6;"[221]":NEXT
  61. 515 PRINT"  [171][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][219][195][195][195][195][179]"
  62. 517 PRINT"  [221] 29 [194] 30 [221] 31 [221] [166][166] [221] [166][166] [221] [166][166] [221] [166][166] [221]"
  63. 520 PRINT"  [202][195][195][195][195][177][195][195][195][195][177][195][195][195][195][177][195][195][195][195][177][195][195][195][195][177][195][195][195][195][177][195][195][195][195][203]"
  64. 525 PRINT"   MOVE THE JOYSTICK, "NA$(NP):CE%=33:CF%=32:POKES+24,9
  65. 530 XD%=INT(RND(0)*7)*5:YD%=INT(RND(0)*5)*2:CM%=XD%+YD%+5
  66. 535 IFNA$(NP)="COMMODORE"THEN575
  67. 540 JV=PEEK(56321):JV=15-(JVAND15):IFJVTHEN580
  68. 550 POKE55620+XD%+(40*YD%),7:POKE55620+XD%+1+(40*YD%),7:GOSUB350
  69. 570 POKE55620+XD%+(40*YD%),0:POKE55620+XD%+1+(40*YD%),0:GOTO530
  70. 575 IFXD%=30ORRND(0)>0.3THEN550
  71. 580 FORL2=YD%TO0STEP-2:CM%=XD%+YD%+5
  72. 590 POKE55620+XD%+(40*YD%),7:POKE55620+XD%+1+(40*YD%),7:GOSUB350:GOSUB9950
  73. 610 POKE55620+XD%+(40*YD%),0:POKE55620+XD%+1+(40*YD%),0:YD%=YD%-2:NEXTL2
  74. 620 IFXD%=0THENM$="SUNDAY":SR=1
  75. 630 IFXD%=5THENM$="MONDAY":SR=2
  76. 640 IFXD%=10THENM$="TUESDAY":SR=3
  77. 650 IFXD%=15THENM$="WEDNESDAY":SR=4
  78. 660 IFXD%=20THENM$="THURSDAY":SR=5
  79. 670 IFXD%=25THENM$="FRIDAY":SR=6
  80. 680 IFXD%=30THENM$="SATURDAY":SR=7
  81. 685 PRINT"[145][129]   YOUR DAY IS "M$", "NA$(NP)
  82. 690 CM%=XD%+3:FORL1=1TO4
  83. 700 POKE55461+XD%,4:POKE55461+XD%+40,4:POKE55461+XD%+80,4:GOSUB350
  84. 710 GOSUB9940
  85. 720 POKE55461+XD%,7:POKE55461+XD%+40,7:POKE55461+XD%+80,7:GOSUB9050
  86. 730 GOSUB9920:NEXTL1:GOSUB9050
  87. 740 ONSRGOSUB1000,2000,3000,4000,5000,6000,7000
  88. 750 RETURN
  89. 800 L2=0:L3=0:SX=91:FORL=0TO62:POKE832+L,PEEK(PD+L):NEXT:R$="< "+M$:M$=R$
  90. 810 POKEV+16,1:POKEY,YL%:M$=M$+" [166]":LM=LEN(M$):L1=LM-1
  91. 820 POKES,50:POKES+22,100:POKES+23,2:POKES+24,10:CE%=33:CF%=32
  92. 822 IFFF%THENCE%=0:CF%=0:GOSUB9050:POKES+1,35:POKES+5,2:POKES+6,2:POKES+24,5
  93. 825 POKEV,SX:POKEV+1,SY:POKEV+21,PEEK(V+21)OR1:L=40
  94. 830 POKES+Q4%,CE%:POKEV,SX
  95. 840 SX=SX-Q2%:IFSX<37THEN855
  96. 850 POKES+Q4%,CF%:GOTO830
  97. 855 IFFF%THENCE%=129:CF%=128:FF%=0
  98. 860 POKEV,SX:POKES+Q4%,CE%:L3=L3+Q1%:IFL3=Q2%THENGOSUB15
  99. 870 SX=SX-Q2%:POKES+Q4%,CF%
  100. 875 IFL2THENIFSX<Q2%THENPOKEV+21,PEEK(V+21)AND254:POKEV+29,0:POKEV+23,0:GOTO920
  101. 880 POKEV,SX:IFSX<Q2%THENSX=255:POKEV+16,0:POKEV,SX:L2=Q1%
  102. 890 SX=SX-Q2%:GOTO860
  103. 920 POKES+Q4%,CE%:POKEX,L:SYSPZ:POKES+Q4%,CF%:PRINTMID$(M$,Q1%,LM-L1)"[146] "
  104. 930 POKES+Q4%,CE%:L1=L1-Q1%:L=L-Q1%:IFL=0THEN950
  105. 940 FORL3=1TO40:NEXT:POKES+Q4%,CF%:GOTO920
  106. 950 L3=LM-Q1%:POKEX,L
  107. 960 POKES+Q4%,CE%:SYSPZ:POKES+Q4%,CF%:PRINT""MID$(M$,LM-L3,40)"[146] "
  108. 970 IFL3=0THENM$="":POKEV+21,0:GOSUB9050:RETURN
  109. 980 POKES+Q4%,CE%:L3=L3-Q1%:FORL=1TO40:NEXT:POKES+Q4%,CF%:GOTO960
  110. 999 REM **SUNDAY**
  111. 1000 POKE53280,6:POKE53281,6:PRINTCHR$(147)
  112. 1010 PRINT"    [166][166][166] [166]  [166] [166][220]  [166] [166][166][166][220]   [166]   [166]  [166]"
  113. 1012 PRINT"    [166]   [166]  [166] [166][166]  [166] [166]  [166]  [166] [166]   [166][166]"
  114. 1014 PRINT"    [166][166][166] [166]  [166] [166] [166] [166] [166]  [166] [166][168][168][168][166]   [220]"
  115. 1016 PRINT"      [166] [166]  [166] [166]  [166][166] [166]  [166] [166]   [166]   [220]"
  116. 1018 PRINT"    [166][166][166] [166][166][166][166] [166]   [166] [166][166][166][220] [166]   [166]   [220]"
  117. 1020 FORL=1TO8:YL%=INT(RND(0)*9)+10:XL%=INT(RND(0)*36)+1:POKEX,XL%:POKEY,YL%
  118. 1030 SYSPZ:PRINT"[153][168][157][157][166][166][146][166][157][157][149][221][157][221]":NEXT
  119. 1040 POKEX,16:POKEY,21:SYSPZ:PRINT"[152][213][195][195][195][178][203]"
  120. 1050 POKE50050,8:POKE50053,128:SYS50047:POKE2041,14
  121. 1060 POKEV+40,3:POKEV+2,165:POKEV+3,209:POKEV+21,2
  122. 1100 L=INT(RND(0)*6)+1:ONLGOTO1110,1120,1130,1140,1145,1150
  123. 1110 M$="A NICE DAY FOR A SNOOZE, ":GOSUB1200:GOTO800
  124. 1120 M$="TAKE THE DAY OFF AND REST, ":GOSUB1200:GOTO800
  125. 1130 IFNA$(NP)<>"COMMODORE" THEN 1170
  126. 1135 GOTO1150
  127. 1140 M$="--LAZY DAY-- YOU GET TO REST, ":GOSUB1200:GOTO800
  128. 1145 REM **EXTRA CHANCE FOR INVESTMENT
  129. 1150 IFIN(NP)THENM$="A BUYER FOR YOUR INVESTMENT, ":GOSUB1200:GOSUB800:GOTO5100
  130. 1160 M$="A CHANCE FOR A GOOD INVESTMENT, ":GOSUB1200:GOSUB800:GOTO5100
  131. 1170 M$="A NICE DAY FOR A TREASURE HUNT, ":GOSUB1200:GOSUB800:GOTO7000
  132. 1200 M$=M$+NA$(NP)
  133. 1210 L=INT(RND(0)*2)+1:ONLGOTO1220,1230
  134. 1220 PD=49160:POKEV+29,1:POKEV+23,1:SY=100:GOTO1240
  135. 1230 PD=49224:POKEV+29,1:SY=108
  136. 1240 YL%=8:PRINT"":L=INT(RND(0)*3)+1:ONLGOTO1250,1260,1270
  137. 1250 POKEV+39,4:POKEV+37,14:POKEV+38,15:RETURN
  138. 1260 POKEV+39,5:POKEV+37,8:POKEV+38,7:RETURN
  139. 1270 POKEV+39,10:POKEV+37,9:POKEV+38,1:RETURN
  140. 1999 REM **MONDAY**
  141. 2000 GOSUB2005:GOTO2060
  142. 2005 PRINTCHR$(147):POKE53280,2:POKE53281,2
  143. 2010 PRINT"[154]    EEE X X PPP EEE N  N SSS EEE SSS"
  144. 2020 PRINT"    E   X X P P E   NN N S   E   S "
  145. 2030 PRINT"    EE   X  PP  EE  N [165]N SSS EE  SSS"
  146. 2040 PRINT"    E   X X P   E   N NN   S E     S"
  147. 2050 PRINT"    EEE X X P   EEE N  N SSS EEE SSS"
  148. 2055 FORL=1TO15:YD%=INT(RND(0)*8)+13:XD%=INT(RND(0)*36)+1:POKEX,XD%:POKEY,YD%
  149. 2056 SYSPZ:PRINT"[153] [157]$[157] [146]":NEXT:FF%=1:GOSUB370:RETURN
  150. 2060 BE=INT((RND(0)*5)+1)*100:M$=NA$(NP):M$=M$+", "
  151. 2070 IFNA$(NP)="COMMODORE"THENBE=BE/2
  152. 2080 L=INT(RND(0)*7)+1:ONLGOTO2110,2120,2130,2140,2150,2160,2170
  153. 2110 M$=M$+"NEW CLOTHES COST $":BE=BE/2:GOTO2200
  154. 2120 M$=M$+"UNEXPECTED DOCTOR BILL COST $":GOTO2200
  155. 2130 M$=M$+"UTILITIES FOR THE MONTH COST $":GOTO2200
  156. 2140 M$=M$+"HOME REPAIRS COST $":BE=BE*2:GOTO2200
  157. 2150 M$=M$+"INCOME TAX TIME - PAY $":BE=BE*2:GOTO2200
  158. 2160 IFIN(NP)THENM$=M$+"MAINTENANCE ON YOUR INVESTMENT COST $":GOTO2200
  159. 2170 L1=INT(RND(0)*(N+1))+1:IFL1=NPTHEN2190
  160. 2175 IFL1>NANDN>2THENBE=BE/2:GOTO2185
  161. 2176 IFL1>NTHEN2170
  162. 2180 M$=M$+"GIVE ":M$=M$+NA$(L1):M$=M$+" $":M(L1)=M(L1)+BE:GOTO2200
  163. 2185 M$=M$+"GIVE EVERYONE $":FORL2=1TON:M(L2)=M(L2)+BE:M(NP)=M(NP)-BE:NEXTL2
  164. 2186 GOTO2210
  165. 2190 M$=M$+"GIVE THE BANK $"
  166. 2200 M(NP)=M(NP)-BE
  167. 2210 M$=M$+STR$(BE):PD=49288:POKEV+23,1:SY=110:YL%=10:PRINT""
  168. 2220 POKEV+39,15:POKEV+37,0:POKEV+38,4:GOTO800
  169. 2999 REM **TUESDAY**
  170. 3000 PRINTCHR$(147):POKE53280,15:POKE53281,15
  171. 3010 PRINT"  --- TUESDAY ---   [149]LOTTERY DRAWING!"
  172. 3020 PRINT"   PLAYER             TICKET NUMBERS":L1=0
  173. 3030 FORL=1TON:POKEX,2:POKEY,L*2+4:SYSPZ:PRINT""NA$(L)
  174. 3040 POKEX,20:SYSPZ:IFL(L+L1)>0THENPRINT""L(L+L1)"   ";
  175. 3050 IFL(L+L1+1)>0THENPRINTL(L+L1+1)"   ";
  176. 3060 IFL(L+L1+2)>0THENPRINTL(L+L1+2)
  177. 3070 L1=L1+2:NEXT:FORL=0TO5:T(L)=0:NEXT
  178. 3080 POKEX,0:POKEY,16:SYSPZ:PRINT"[144][207][183][183][205][205][205][175]":SYSPZ:PRINT"[180][157][180][157][180][157][180][157][180]"
  179. 3085 POKEY,22:SYSPZ:PRINT"[204][175][175][206][145][206][145][206][183]"
  180. 3090 FORL=1TO5
  181. 3092 T(L)=INT(88*RND(0))+11:FG%=0
  182. 3095 FORL2=1TOL:IFT(L)=T(L2-1)THENFG%=1
  183. 3096 NEXTL2:IFFG%THEN3092
  184. 3100 NEXTL:POKES+24,10
  185. 3104 POKEX,14:POKEY,16:SYSPZ:PRINT"[154]WINNING NUMBERS"
  186. 3105 FORL3=1TO5:PRINT"[153]":CE%=33:CF%=32
  187. 3110 L1=INT(RND(0)*3)+1:L2=INT(RND(0)*5)+17:POKEX,L1:POKEY,L2:SYSPZ:PRINT"[209]"
  188. 3120 CM%=L2:GOSUB350:SYSPZ:PRINT" ":IFINT(RND(0)*100)>15THEN3110
  189. 3140 GOSUB9050:GOSUB3810:GOSUB9050:FORL1=1TOL3:FG%=1:POKEX,L1*7
  190. 3150 FORL2=18TO21:POKEY,L2:SYSPZ:PRINT"[215]";:GOSUB9940:SYSPZ:PRINT" "
  191. 3160 SYSPZ:PRINT"[213][201][157][157][202][203]":GOSUB9940:SYSPZ:PRINT"  [157][157]  ":GOSUB9940
  192. 3170 NEXTL2:IFL1=L3THENFG%=0
  193. 3175 IFFG%THENGOSUB3600
  194. 3180 NEXTL1:POKEY,L2+1:SYSPZ
  195. 3185 CM%=30:CE%=17:CF%=16:GOSUB350:PRINT""T(L3);:CM%=20:GOSUB350
  196. 3190 NEXTL3:FG%=0:GOSUB9050:POKES+24,14
  197. 3200 FORL3=1TON:MO%=0:IFS(L3)=0THEN3230
  198. 3205 FORL1=1TOS(L3):POKEX,L1*7+14:POKEY,L3*2+5:SYSPZ:PRINT"[156][169][223][146]":CM%=10
  199. 3210 GOSUB350:FORL2=1TO5:IFT(L2)=L(L3*3-3+L1)THENGOSUB3700
  200. 3220 NEXTL2:POKEX,L1*7+14:POKEY,L3*2+5:SYSPZ:PRINT"  ":NEXTL1:GOSUB3750
  201. 3230 NEXTL3
  202. 3240 POKEX,12:POKEY,19:FG%=5
  203. 3250 SYSPZ:PRINTCHR$(FG%)"PRESS FIRE TO CONTINUE!":GOSUB9930
  204. 3260 JV=PEEK(56321):FR=JVAND16:IFFR=0THENCM%=30:CE%=17:CF%=16:GOTO3300
  205. 3270 IFFG%=5THENFG%=28:GOTO3250
  206. 3280 FG%=5:GOTO3250
  207. 3300 GOSUB350:GOSUB9050:FORL=1TON:S(L)=0:NEXT:FORL=1TON*3:L(L)=0:NEXT:RETURN
  208. 3600 POKES+1,20:POKES+5,30:POKES+6,30:POKES+4,17
  209. 3605 L4=L1*7:FORL5=20TO17:POKEX,L4:POKEY,L5:SYSPZ
  210. 3610 PRINT"[215]":GOSUB9930:SYSPZ:PRINT"  ":L4=L4+1:POKEX,L4:SYSPZ:PRINT"[202][203][145][157][157][213][201]"
  211. 3620 GOSUB9930:SYSPZ:PRINT"  [145][157][157]  ":L4=L4+1:POKES+4,16:NEXTL5:RETURN
  212. 3700 POKEX,L1*7+13:POKEY,L3*2+4:SYSPZ:PRINT""L(L3*3-3+L1)
  213. 3710 CM%=100:GOSUB350:MO%=MO%+1500:RETURN
  214. 3750 POKEX,24:POKEY,L3*2+5:SYSPZ:IFMO%THEN3770
  215. 3760 PRINT"NO WINNERS!":GOSUB370:RETURN
  216. 3770 CM%=70:PRINT"  $"MO%:M(L3)=M(L3)+MO%:GOSUB350:CM%=90:GOSUB350:RETURN
  217. 3810 POKES+5,3:POKES+6,3:POKES+1,19:POKES+4,17:GOSUB9940:RETURN
  218. 3999 REM **WEDNESDAY**
  219. 4000 PRINTCHR$(147):POKE53280,7:POKE53281,7
  220. 4010 PRINT"[155]    [209]   [209] [209] [209]  [209] [209][209]  [209][209][209] [209]  [209]   [209]"
  221. 4020 PRINT"    [209]   [209] [209] [209][209] [209] [209] [209] [209]  [209] [209] [209]   [209]"
  222. 4030 PRINT"    [209] [209] [209] [209] [209] [165][209] [209] [209] [209][209] [209][209][209] [209]   [209]"
  223. 4040 PRINT"    [209][209] [209][209] [209] [209] [209][209] [209] [209] [209]  [209] [209] [209]   [209]"
  224. 4050 PRINT"    [209]   [209] [209] [209]  [209] [209][209]  [209]  [209] [209] [209][209][209] [209][209][209]"
  225. 4055 PRINT"[144] OFFICIAL NOTICE FOR "NA$(NP)"..."
  226. 4060 PRINT""
  227. 4070 PRINT"      [153] [220] [220]     [129]  [213]  [201]      [153] [220] [220] "
  228. 4080 PRINT"      [166][166][166][166][166]    [129]  [202][201][213][203]      [153][166][166][166][166][166]"
  229. 4090 PRINT"      [166][220] [220]     [129][213][195][195][203][202][195][195][201]    [153][166][220] [220] "
  230. 4100 PRINT"      [166][166][166][166][166]    [129][221]      [221]    [153][166][166][166][166][166]"
  231. 4110 PRINT"       [220] [220][166]    [129][221] $$$$ [129][221]    [153] [220] [220][166]"
  232. 4120 PRINT"      [166][166][166][166][166]    [129][221]      [221]    [153][166][166][166][166][166]"
  233. 4130 PRINT"       [220] [220]     [129][202][195][195][195][195][195][195][203]    [153] [220] [220] "
  234. 4200 BE=INT(RND(0)*30)*100+500:L=INT(RND(0)*6)+1
  235. 4205 ONLGOTO4210,4220,4230,4240,4250,4260
  236. 4210 M$="A RAISE - YOUR PAYCHECK INCREASES BY $":BE=BE/4:PD(NP)=PD(NP)+BE:GOTO4310
  237. 4220 M$="YOUR UNCLE JUST LEFT YOU AN INHERITANCE OF $":GOTO4300
  238. 4230 M$="YOU RECEIVE A TAX REFUND OF $":BE=BE/2:GOTO4300
  239. 4240 M$="YOU RECEIVE A BONUS OF $":GOTO4300
  240. 4250 M$="YOU RECEIVE A DIVIDEND OF $":GOTO4300
  241. 4260 M$="COLLECT FROM ":L1=INT(RND(0)*(N+1))+1:IFL1=NPTHEN4290
  242. 4270 IFL1>NANDN>2THEN4280
  243. 4272 IFL1>NTHEN4260
  244. 4275 M$=M$+NA$(L1):M$=M$+" THE SUM OF $":BE=BE/2:M(L1)=M(L1)-BE:GOTO4300
  245. 4280 M$=M$+"EVERYONE THE SUM OF $":BE=BE/4
  246. 4285 FORL=1TON:M(L)=M(L)-BE:M(NP)=M(NP)+BE:NEXT:GOTO4310
  247. 4290 M$=M$+"THE BANK THE SUM OF $"
  248. 4300 M(NP)=M(NP)+BE
  249. 4310 M$=M$+STR$(BE):PD=49352:POKEV+23,1:POKEV+29,1:SY=138:YL%=12:PRINT"[149]"
  250. 4320 POKEV+39,0:POKEV+37,10:POKEV+38,5:GOTO800
  251. 4500 GOTO4500
  252. 4999 REM **THURSDAY**
  253. 5000 PRINTCHR$(147):POKE53280,11:POKE53281,11:SYS50000:SYS50115
  254. 5005 L=INT(RND(0)*6)+1:ONLGOTO5010,5020,5030,5040,5050,5060
  255. 5010 M$="HOLD A LOTTERY, ":GOSUB5080:GOTO3000
  256. 5020 M$="YOU NEED SOME EXTRA MONEY, ":GOSUB5080:GOTO4000
  257. 5030 M$="YOU JUST SPENT SOME MONEY, ":GOSUB5080:GOTO2000
  258. 5040 M$="YOU RECEIVE A BONUS PAYCHECK, ":GOSUB5080:GOTO6000
  259. 5050 IFNA$(NP)="COMMODORE"THEN5060
  260. 5055 M$="TIME FOR A TREASURE HUNT, ":GOSUB5080:GOTO7000
  261. 5060 IFIN(NP)THENM$="TIME TO CASH IN ON THAT INVESTMENT, ":GOSUB5080:GOTO5100
  262. 5070 M$="TIME TO MAKE AN INVESTMENT, ":GOSUB5080:GOTO5100
  263. 5080 GOSUB1200:SY=SY+30:YL%=12:PRINT"[158]":GOTO800
  264. 5099 REM **INVESTMENT ROUTINE**
  265. 5100 PRINTCHR$(147):POKEV+16,0:L=IN(NP):ONLGOTO5200,5300,5400,5500,5600
  266. 5110 IP%=INT(RND(0)*3000)+1000
  267. 5120 L=INT(RND(0)*5)+1:ONLGOTO5200,5300,5400,5500,5600
  268. 5200 POKE53280,12:POKE53281,12:PRINT"[144]":GOSUB5900:IT$="CAR":C1%=5:C2%=144:IN%=1
  269. 5210 POKEX,0:POKEY,11:SYSPZ:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  270. 5220 PRINT"[195]  [195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160][160][195][160] [195]";
  271. 5230 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  272. 5240 POKE50050,72:POKE50053,64:SYS50047:POKE2040,13:SX=50:SY=160
  273. 5250 POKEV+39,0:POKEV+37,14:POKEV+38,7:POKEV,SX:POKEV+1,SY
  274. 5255 POKEV+29,1:POKEV+23,1:POKEV+21,1:I%=0:IFIN(NP)THEN5280
  275. 5260 POKEX,10:POKEY,8:SYSPZ:PRINT"[155]ANTIQUE CAR FOR SALE!"
  276. 5265 POKEX,4:POKEY,19:SYSPZ:PRINT"WOULD YOU LIKE TO INVEST $"IP%
  277. 5266 PRINT"    IN THE CAR ";NA$(NP);"?":IM$="YOURS":GOSUB5800
  278. 5270 IFI%THEN5845
  279. 5275 GOSUB5860:GOTO5845
  280. 5280 GOSUB5850:POKEX,7:POKEY,8:SYSPZ:PRINT"[155]BUYER FOR YOUR ANTIQUE CAR!"
  281. 5282 POKEX,5:POKEY,19:SYSPZ:PRINT"YOU PAID $";IP(NP);"FOR THE CAR."
  282. 5285 PRINT"     WOULD YOU LIKE TO SELL IT"
  283. 5286 PRINT"     FOR $"IP(NP)+IP%;", ";NA$(NP);"?":IM$="SOLD":GOSUB5800
  284. 5290 IFI%THEN5845
  285. 5295 POKES,50:POKES+22,100:POKES+23,2:POKES+24,14:CE%=33:CF%=32:GOSUB5950:GOTO5870
  286. 5300 POKE53280,6:POKE53281,6:PRINT"[155]":GOSUB5900:IT$="BOAT":C1%=5:C2%=158:IN%=2
  287. 5305 FORL=13TO15
  288. 5310 POKEX,0:POKEY,L:SYSPZ:PRINT"[154][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]":NEXT
  289. 5320 POKE50050,136:POKE50053,64:SYS50047:POKE2040,13:SX=50:SY=130
  290. 5330 L%=INT(RND(0)*5)+1:POKEV+39,L%:L%=INT(RND(0)*9)+7:POKEV+37,L%:POKEV+38,0
  291. 5340 POKEV,SX:POKEV+1,SY:POKEV+29,1:POKEV+23,1:POKEV+21,1:I%=0:IFIN(NP)THEN5370
  292. 5345 POKEX,13:POKEY,8:SYSPZ:PRINT"[159]BOAT FOR SALE!"
  293. 5350 POKEX,4:POKEY,19:SYSPZ:PRINT"WOULD YOU LIKE TO INVEST $"IP%
  294. 5355 PRINT"    IN THE BOAT ";NA$(NP);"?":IM$="YOURS":GOSUB5800
  295. 5360 IFI%THEN5845
  296. 5365 GOSUB5845:GOTO5860
  297. 5370 GOSUB5850:POKEX,7:POKEY,8:SYSPZ:PRINT"[159]BUYER FOR YOUR BOAT, ";NA$(NP);"!"
  298. 5375 POKEX,5:POKEY,19:SYSPZ:PRINT"YOU PAID $";IP(NP);"FOR THE BOAT."
  299. 5380 PRINT" WOULD YOU LIKE TO SELL IT FOR $";IP(NP)+IP%;"?":IM$="SOLD":GOSUB5800
  300. 5385 IFI%THEN5845
  301. 5390 POKES+1,8:POKES+5,80:POKES+6,200:POKES+24,2:CE%=129:CF%=129
  302. 5395 GOSUB5950:GOTO5870
  303. 5400 POKE53280,7:POKE53281,7:PRINT"[149]":GOSUB5900:IT$="COLLECTION"
  304. 5405 C1%=5:C2%=28:IN%=3
  305. 5410 POKEX,6:POKEY,11:SYSPZ:PRINT"[144]        [157][157][157][157][157][157][157][157] STAMPS [157][157][157][157][157][157][157][157]        "
  306. 5415 PRINT"        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        "
  307. 5420 POKE50050,200:POKE50053,64:SYS50047:POKE2040,13:SX=200:SY=140
  308. 5425 POKEV+39,0:POKEV+37,15:POKEV+38,8:POKEV,SX:POKEV+1,SY:POKEV+29,1
  309. 5430 POKEV+23,1:POKEV+21,1:I%=0:IFIN(NP)THEN5470
  310. 5440 POKEX,7:POKEY,8:SYSPZ:PRINT"[151]STAMP COLLECTION FOR SALE!"
  311. 5445 POKEX,4:POKEY,19:SYSPZ:PRINT"WOULD YOU LIKE TO INVEST $"IP%
  312. 5450 PRINT"    IN THE STAMPS ";NA$(NP);"?":IM$="YOURS":GOSUB5800
  313. 5455 IFI%THEN5845
  314. 5460 GOSUB5860:GOTO5845
  315. 5470 GOSUB5850:POKEX,4:POKEY,8:SYSPZ:PRINT"[151]BUYER FOR YOUR STAMP COLLECTION!"
  316. 5475 POKEX,4:POKEY,19:SYSPZ:PRINT"YOU PAID $";IP(NP);"FOR THE STAMPS."
  317. 5480 PRINT"    WOULD YOU LIKE TO SELL THEM FOR"
  318. 5485 PRINT"    $";IP(NP)+IP%;", ";NA$(NP);"?":IM$="SOLD":GOSUB5800
  319. 5490 IFI%THEN5845
  320. 5495 GOSUB5870:GOTO5845
  321. 5500 POKE53280,5:POKE53281,5:PRINT"[154]":GOSUB5900:IT$="TIMBER":C1%=5:C2%=144:IN%=4
  322. 5505 FORL=10TO14STEP4:FORL2=5TO36STEP4:POKEX,L2:POKEY,L:SYSPZ
  323. 5510 PRINT"[149][166][157][157][166][166][166][157][157][158][221][157][221]":NEXT:NEXT:I%=0:IFIN(NP)THEN5540
  324. 5515 POKEX,12:POKEY,8:SYSPZ:PRINT"[144]TREES FOR SALE!"
  325. 5520 POKEX,4:POKEY,19:SYSPZ:PRINT"WOULD YOU LIKE TO INVEST $"IP%
  326. 5525 PRINT"    IN THE TIMBER RIGHTS ";NA$(NP);"?":IM$="YOURS":GOSUB5800
  327. 5530 IFI%THEN5845
  328. 5535 GOSUB5860:GOTO5845
  329. 5540 GOSUB5850:POKEX,9:POKEY,8:SYSPZ:PRINT"[144]BUYER FOR YOUR TIMBER!"
  330. 5545 POKEX,4:POKEY,19:SYSPZ:PRINT"YOU PAID $";IP(NP);"FOR THE TREES."
  331. 5550 PRINT"    WOULD YOU LIKE TO SELL THEM FOR":PRINT"    $";IP(NP)+IP%;", ";NA$(NP);"?"
  332. 5555 IM$="SOLD":GOSUB5800:IFI%THEN5845
  333. 5560 FORL=0TO62:POKE832+L,PEEK(49928+L):NEXT:POKE2040,13:POKEV+39,2:XD%=5:YD%=10
  334. 5565 POKEV+37,0:POKEV+38,15:SX=0:SY=144:POKEV,SX:POKEV+1,SY:POKEV+21,1
  335. 5567 :L1=10:L2=0:L3=0
  336. 5568 POKES+1,5:POKES+5,5:POKES+6,0:POKES+24,8
  337. 5570 POKES+Q4%,33:SX=SX+Q2%:IFSX>255THENSX=0:POKEV+16,Q1%
  338. 5575 POKES+Q4%,32:POKEV,SX:IFL2=Q2%THENPOKEV+21,0:GOSUB5870:GOTO5845
  339. 5577 IFPEEK(V+31)ANDQ1%=Q1%THENGOSUB5590
  340. 5580 IFPEEK(V+16)THENIFSX=50THENSX=10:POKEV+Q1%,175:POKEV,SX:POKEV+16,0:L2=L2+Q1%
  341. 5585 GOTO5570
  342. 5590 L3=L3+Q1%:IFL3<L1THENRETURN
  343. 5592 POKEX,XD%:POKEY,YD%:SYSPZ:PRINT" [157][157]   [157][157] [129][206][149][166][166][145][157][157][166][157][166]":XD%=XD%+Q4%
  344. 5594 IFXD%>36THENXD%=5:YD%=14:L1=44:RETURN
  345. 5595 L3=0:L1=15:RETURN
  346. 5600 POKE53280,11:POKE53281,11:PRINT"[158]":GOSUB5900:IT$="GOLD"
  347. 5605 C1%=158:C2%=159:IN%=5:FORL=1TO8:XD%=INT(RND(0)*4)*8+5
  348. 5610 YD%=INT(RND(0)*2)*4+11:POKEX,XD%:POKEY,YD%:SYSPZ:PRINT"[158][169] [223][157][157][157]   ":NEXT
  349. 5612 I%=0:IFIN(NP)THEN5640
  350. 5615 POKEX,12:POKEY,8:SYSPZ:PRINT"[153]GOLD FOR SALE!"
  351. 5620 POKEX,4:POKEY,19:SYSPZ:PRINT"WOULD YOU LIKE TO INVEST $"IP%
  352. 5625 PRINT"    IN SOME GOLD "NA$(NP)"?":IM$="YOURS":GOSUB5800:IFI%THEN5845
  353. 5630 GOSUB5860:GOTO5845
  354. 5640 GOSUB5850:POKEX,10:POKEY,8:SYSPZ:PRINT"[153]BUYER FOR YOUR GOLD!"
  355. 5650 POKEX,4:POKEY,19:SYSPZ:PRINT"YOU PAID $"IP(NP)"FOR THE GOLD."
  356. 5660 PRINT"    WOULD YOU LIKE TO SELL IT FOR":PRINT"    $"IP(NP)+IP%", "NA$(NP)"?"
  357. 5670 IM$="SOLD":GOSUB5800:IFI%THEN5845
  358. 5680 GOSUB5870:GOTO5845
  359. 5800 POKEX,13:POKEY,22:SYSPZ:PRINTCHR$(C1%);:CM%=30:CE%=17:CF%=16
  360. 5805 IFNA$(NP)="COMMODORE"THENPRINT"YES":GOSUB350:GOSUB9910:GOSUB9050:GOTO5840
  361. 5815 POKEY,23:SYSPZ:PRINTCHR$(C2%);"UP=YES  DOWN=NO";:GOSUB9910
  362. 5820 JV=PEEK(56321):JV=15-(JVAND15):IFJVTHEN5830
  363. 5825 SYSPZ:PRINTCHR$(C1%);"UP=YES  DOWN=NO";:GOSUB9910:GOTO5815
  364. 5830 IFJV<>1ANDJV<>2THEN5825
  365. 5835 GOSUB350:IFJV=2THENSYSPZ:PRINT"MAYBE NEXT TIME!";:I%=1:GOSUB9050:RETURN
  366. 5840 POKEY,23:SYSPZ:PRINTCHR$(C2%);"THE ";IT$;" IS ";IM$;"!";
  367. 5842 GOSUB9050:GOSUB9900:RETURN
  368. 5845 GOSUB9900:POKEV+21,0:POKEV+29,0:POKEV+23,0:POKEV+16,0:RETURN
  369. 5850 IP%=INT(IP(NP)/((RND(0)*8)+1)):RETURN
  370. 5860 IP(NP)=IP%:M(NP)=M(NP)-IP%:IN(NP)=IN%:RETURN
  371. 5870 M(NP)=M(NP)+IP(NP)+IP%:IN(NP)=0:IP(NP)=0:RETURN
  372. 5900 PRINT" [214] [214]  [214] [214] [214] [214][214] [214][214] [214][214][214] [214]   [214] [214][214] [214]  [214] [214][214][214]"
  373. 5910 PRINT" [214] [214][214] [214] [214] [214][160][214][160][160][214][160][160][160][214][160][160][214][205][160][206][214][160][214][160][160][214][214][160][214][160][160][214] "
  374. 5920 PRINT" [214] [214][167][165][214] [214][160][214] [214][214] [214][214]  [214]  [214][160][214][160][214] [214][214] [214][167][165][214]  [214] "
  375. 5930 PRINT" [214] [214] [214][214] [214][160][214][160][214][160][160][160][214][160][160][214][160][160][214][160][160][160][214][160][214][160][160][214][160][214][214][160][160][214][160]"
  376. 5940 PRINT" [214][160][214][160][160][214]  [214][160][160][214][214][160][214][214][160][160][214][160][160][214][160][160][160][214][160][214][214][160][214][160][160][214][160][160][214]":RETURN
  377. 5950 POKES+Q4%,CE%:SX=SX+Q2%:IFSX>254THENPOKEV+16,Q1%:SX=Q1%
  378. 5955 POKEV,SX:POKES+Q4%,CF%
  379. 5960 IFPEEK(V+16)THENIFSX>70THENPOKEV+21,0:GOSUB9050:GOSUB5845:RETURN
  380. 5970 GOTO5950
  381. 5999 REM **FRIDAY**
  382. 6000 PRINTCHR$(147):POKE53280,5:POKE53281,13:POKE53282,1:POKE53283,0
  383. 6005 POKE53270,PEEK(53270)OR16:PRINT"[145]$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";
  384. 6010 FORL=1TO4:PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:IFL=2THENGOSUB6030
  385. 6020 NEXT:GOTO6040
  386. 6030 PRINT"$$$$$$$$$$$$$$$$ PAY DAY [146]$$$$$$$$$$$$$$$";:RETURN
  387. 6040 PRINT"[144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  388. 6045 PRINT"     PLAYER                PAY CHECK":SYS50022
  389. 6050 PRINT"    [144]"NA$(NP)
  390. 6060 PRINTTAB(28)"[145]$"PD(NP):M(NP)=M(NP)+PD(NP)
  391. 6065 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  392. 6070 FORL=1TO2:PRINT"[144]                                        ";:NEXT
  393. 6075 PRINT"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOSUB6300
  394. 6100 IFIN(NP)THENGOSUB9900:GOSUB9905:POKE53270,PEEK(53270)AND239:RETURN
  395. 6110 M$="NOW, YOU MAY INVEST YOUR HARD-EARNED CASH!!"
  396. 6120 PD=49352:POKEV+23,1:POKEV+29,1:SY=173:YL%=16:PRINT"[144]"
  397. 6130 POKEV+39,6:POKEV+37,10:POKEV+38,5:GOSUB800:POKE53270,PEEK(53270)AND239
  398. 6140 GOTO5100
  399. 6300 POKES+5,9:POKES+6,9:POKES+24,14
  400. 6310 FORL1=50061TO50075STEP3
  401. 6320 POKES+1,PEEK(L1):POKES,PEEK(L1+1):POKES+4,17
  402. 6330 L2=PEEK(L1+2):FORL3=1TOL2*85:NEXT:POKES+4,16:NEXT:GOSUB9050:RETURN
  403. 6400 POKES+5,9:POKES+6,9:POKES+24,14
  404. 6410 FORL1=50076TO50111STEP3
  405. 6420 POKES+1,PEEK(L1):POKES,PEEK(L1+1):POKES+4,17
  406. 6430 L2=PEEK(L1+2):FORL3=1TOL2*85:NEXT:POKES+4,16:NEXT:GOSUB9050:RETURN
  407. 6999 REM **SATURDAY**
  408. 7000 PRINTCHR$(147):POKE53280,9:POKE53281,9
  409. 7010 PRINT"[155] --- SATURDAY FOR ";NA$(NP);" ---":PRINT"[158]           ** TREASURE HUNT **"
  410. 7012 FORL=1TO6:XD%=INT(RND(0)*32)+2:YD%=INT(RND(0)*19)+5:POKEX,XD%:POKEY,YD%
  411. 7014 SYSPZ:PRINT"[155][169] [223]":NEXT
  412. 7020 FORL=1TO5:XD%=INT(RND(0)*32)+2:YD%=INT(RND(0)*18)+4:POKEX,XD%:POKEY,YD%
  413. 7030 SYSPZ:PRINT"[154][168][166][166][168][157][157][157][157][166][166][166][166][166][166][168][157][157][157][157][157][166][166][166][220]":NEXT
  414. 7040 FORL=1TO10:XD%=INT(RND(0)*5)*8+5:YD%=INT(RND(0)*4)*5+4:POKEX,XD%:POKEY,YD%
  415. 7050 SYSPZ:PRINT"[166][157][157][166][166][166][157][157][129][221][157][221]":NEXT
  416. 7060 POKEX,16:POKEY,20:SYSPZ:PRINT"[176]RADAR[174]":POKEY,21:SYSPZ:PRINT"[221]     [221]"
  417. 7070 POKEY,22:SYSPZ:PRINT"[221]     [221]":POKEY,23:SYSPZ:PRINT"[173][195][195][195][195][195][189]
  418. 7080 [151]50050,72:[151]50051,194:[151]50053,64:[151]50057,191:[158]50047:[151]50057,63
  419. 7090 [151]2040,14:[151]V[170]39,9:[151]V[170]37,9:[151]V[170]38,9
  420. 7100 [151]V[170]16,0:TP%[178]0:TX%[178][181]([187](0)[172]260)[170]40:TY%[178][181]([187](0)[172]155)[170]70
  421. 7102 [139]TX%[177][178]255[167][151]V[170]16,1:TP%[178]255:TX%[178]TX%[171]TP%
  422. 7104 [151]V,TX%:[151]V[170]1,TY%:[151]V[170]21,1:[151]V,TX%[170]1:[151]V[170]1,TY%[170]1
  423. 7110 [139][194](V[170]31)[175]1[178]1[167]7100
  424. 7120 [151]V[170]21,0:[151]V[170]16,0:SX%[178]170:SY%[178]160:[151]V[170]39,7:[151]V[170]37,11:[151]V[170]38,1
  425. 7130 [151]V,SX%:[151]V[170]1,SY%:SN%[178]14:[151]2040,SN%:[151]V[170]21,1:TI$[178]"000000"
  426. 7140 [139]TI$[177][178]"000025"[167]7850
  427. 7142 JV[178][194](56321):FR[178]JV[175]16:JV[178]15[171](JV[175]15)
  428. 7145 [139]FR[178]0[167]7300
  429. 7147 [145]JV[137]7150,7160,7140,7170,7180,7190,7140,7200,7210,7220
  430. 7148 [137]7140
  431. 7150 SY%[178]SY%[171]3:[137]7225
  432. 7160 SY%[178]SY%[170]3:[137]7225
  433. 7170 SX%[178]SX%[171]3:[137]7225
  434. 7180 SY%[178]SY%[171]3:SX%[178]SX%[171]3:[137]7225
  435. 7190 SY%[178]SY%[170]3:SX%[178]SX%[171]3:[137]7225
  436. 7200 SX%[178]SX%[170]3:[137]7225
  437. 7210 SX%[178]SX%[170]3:SY%[178]SY%[171]3:[137]7225
  438. 7220 SX%[178]SX%[170]3:SY%[178]SY%[170]3
  439. 7225 [139]SX%[177]255[167][151]V[170]16,1:SX%[178]1
  440. 7230 [139]SX%[179]0[175][194](V[170]16)[167][151]V[170]16,0:SX%[178]255
  441. 7240 [139]SX%[177]70[175][194](V[170]16)[167]SX%[178]70
  442. 7250 [139]SX%[179]20[175][194](V[170]16)[178]0[167]SX%[178]20
  443. 7260 [139]SY%[179]75[167]SY%[178]75
  444. 7270 [139]SY%[177]225[167]SY%[178]225
  445. 7280 SN%[178]SN%[170]1:[151]2040,SN%:[151]V,SX%:[151]V[170]1,SY%:[139]SN%[178]15[167]SN%[178]12
  446. 7290 [137]7140
  447. 7300 L%[178]SX%:TX%[178]TX%[170]TP%:[151]X,18:[151]Y,21:[158]PZ:[139][194](V[170]16)[167]L%[178]L%[170]255
  448. 7305 XD%[178]TX%[171]L%:YD%[178]TY%[171]SY%:TX%[178]TX%[171]TP%
  449. 7310 [139]XD%[177][171]6[175]XD%[179]6[175]YD%[179][171]6[167][153]"STEP(null)CMDCMDWAITTHENFN":[137]7400
  450. 7320 [139]XD%[177][171]6[175]XD%[179]6[175]YD%[177]6[167][153]"THENFNCMDCMD(null)STEP":[137]7400
  451. 7330 [139]XD%[179][171]6[175]YD%[177][171]6[175]YD%[179]6[167][153]"STEPWAITTOCMDCMD(null)TAB(":[137]7400
  452. 7340 [139]XD%[177]6[175]YD%[177][171]6[175]YD%[179]6[167][153]"TO(null)CMDCMDWAITTAB(STEP":[137]7400
  453. 7350 [139]XD%[177]6[175]YD%[177]6[167][153]"(null)STEP":[137]7400
  454. 7360 [139]XD%[177]6[175]YD%[179][171]6[167][153]"(null)ON(null)":[137]7400
  455. 7370 [139]XD%[179][171]6[175]YD%[179][171]6[167][153]"STEP(null)":[137]7400
  456. 7380 [139]XD%[179][171]6[175]YD%[177]6[167][153]"(null)ONWAIT(null)":[137]7400
  457. 7390 [137]7500
  458. 7400 [141]9905:[158]PZ:[153]"  CMDCMD  ":[137]7140
  459. 7500 [151]50050,8:[158]50047:[151]V[170]39,15:[151]V[170]37,0:[151]V[170]38,7
  460. 7505 [151]2040,13:[151]50051,193
  461. 7510 L[178][181]([187](0)[172]8)[170]1:[145]L[137]7520,7530,7540,7550,7560,7570,7580,7590
  462. 7520 R$[178]"GOLD":[137]7596
  463. 7530 R$[178]"SILVER":[137]7596
  464. 7540 R$[178]"A JEWEL":[137]7594
  465. 7550 R$[178]"AN INDIAN RELIC":[137]7592
  466. 7560 R$[178]"A COIN":[137]7592
  467. 7570 R$[178]"A RING":[137]7594
  468. 7580 R$[178]"A TURQUOISE":[137]7594
  469. 7590 R$[178]"A FOSSIL"
  470. 7592 B$[178]" MUSEUM ":[137]7600
  471. 7594 B$[178]"JEWELERS":[137]7600
  472. 7596 B$[178]"  BANK  "
  473. 7600 M$[178]"YOU FOUND "[170]R$:M$[178]M$[170]"...":[151]X,10:[151]Y,2:CM%[178]30:CE%[178]33:CF%[178]32
  474. 7610 [129]L1[178]1[164]10:[151]V[170]21,0:[158]PZ:[153]"                             "
  475. 7620 [141]9920:[151]V[170]21,1:[158]PZ:[153]M$:[141]350
  476. 7630 [141]9930:[130]L1:[141]9900:[141]9050:[151]V[170]21,0
  477. 7640 TV%[178][181]([187](0)[172]2500)[170]900
  478. 7700 [153][199](147):[151]53280,15:[151]53281,15
  479. 7710 [153]" $$$ APPRAISAL FOR "NA$(NP)" $$$"
  480. 7715 [153]"STOP       POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  481. 7720 [153]"        THENVERIFY                      WAITSTOPFN"
  482. 7730 [153]"        THENVERIFY       "B$"       WAITSTOPFN"
  483. 7740 [153]"        THENVERIFY                      WAITSTOPFN"
  484. 7745 [153]"        THENVERIFY                      WAITSTOPFN"
  485. 7750 [153]"        THENVERIFY   WAITSTOP(null)USR(null)VERIFY   (null)USRUSR(null)   WAITSTOP(null)USR(null)VERIFY   WAITSTOPFN"
  486. 7760 [153]"        THENVERIFY   WAITSTOPSGN +VERIFY   SGN .+   WAITSTOPSGN +VERIFY   WAITSTOPFN"
  487. 7770 [153]"        THENVERIFY   WAITSTOP(null)ANDSQRVERIFY   SGN  +   WAITSTOP(null)ANDSQRVERIFY   WAITSTOPFN"
  488. 7780 [153]"        THENVERIFY         SGN  +         WAITSTOPFN"
  489. 7782 [153]"        THENVERIFY         SGN  +         WAITSTOPFN"
  490. 7784 [151]S,2:[151]S[170]1,20:[151]S[170]5,80:[151]S[170]6,200:[151]S[170]24,10:CE%[178]33:CF%[178]32
  491. 7785 [129]L1[178]1[164]10:CM%[178][181]([187](0)[172]20)[170]10:[141]350:[130]:[141]9050
  492. 7787 [153]"   "R$" ...VALUED AT $"TV%:M(NP)[178]M(NP)[170]TV%
  493. 7790 [141]9900:[141]9900:[142]
  494. 7850 [151]X,10:[151]Y,2:[151]V[170]21,0:[151]50050,8:[158]50047:[139]TP%[167][151]V[170]16,1
  495. 7860 [151]V[170]39,15:[151]V[170]37,0:[151]V[170]38,7:[151]2040,13:[151]50051,193
  496. 7865 [151]V,TX%:[151]V[170]1,TY%:CM%[178]5:CE%[178]33:CF%[178]32
  497. 7870 [129]L1[178]1[164]10:[158]PZ:[153]"SORRY --- TIME TO LEAVE!!":[151]V[170]21,1:[141]350
  498. 7880 [141]9920:[158]PZ:[153]"                         ":[151]V[170]21,0:[141]9910:[130]L1
  499. 7890 [158]PZ:[153]"BETTER LUCK NEXT TRIP!!":[141]9900:[141]9900:[141]2005
  500. 7900 M$[178]NA$(NP):BE[178][181]([187](0)[172]900)[170]100
  501. 7910 M$[178]M$[170]", UNSUCCESSFUL TREASURE HUNT COST $":[137]2200
  502. 8000 X[178]49153:Y[178]49155:PZ[178]49152:S[178]54272:[151]649,10:Q1%[178]1:Q2%[178]2:Q4%[178]4
  503. 8010 [134]NA$(5),L(15),T(5),S(5),IU(5),M(5),C(10),PD(5),IN(5),IP(5)
  504. 8040 [151]53280,6:[151]53281,6:[151]X,12:[151]Y,3:[153][199](147):[158] PZ
  505. 8050 [129]L[178]1[164]20:[161]A$:[130]:[153]"HOW MANY PLAYERS?"
  506. 8055 [151]X,13:[151]Y,5:[158]PZ:[153]"OPEN(FROM 1 TO 4)                         "
  507. 8060 [151]X,27:[158]PZ
  508. 8065 [161]A$:[139]A$[178]""[167]8065
  509. 8066 N[178][197](A$):[139]N[179]1[176]N[177]4[167]8065
  510. 8070 [153]N:[129]L[178]1[164]N:N$[178]""
  511. 8072 [151]X,0:[151]Y,L[172]2[170]5:[158]PZ
  512. 8074 [153]"CONT  PLAYER #";L;"                                       ":[151]X,12:[158]PZ
  513. 8075 [133] N$:[139][195](N$)[177]15[167][153]"  NO MORE THAN 15 LETTERS PLEASE!":[137] 8072
  514. 8076 [139][195](N$)[179]2[167][153]"  PLEASE ENTER NAME!":[137]8072
  515. 8080 NA$(L)[178]N$:[130]:[139]N[178]1[167][151]Y,17:[137]8110
  516. 8090 [151]X,5:[151]Y,15:[158]PZ:[153]"DO YOU WANT COMMODORE TO PLAY?":[151]Y,17
  517. 8095 [161]A$:[139]A$[178]""[167]8095
  518. 8100 [139]A$[179][177]"N"[175]A$[179][177]"Y"[167]8095
  519. 8105 [139]A$[178]"N"[167][151]X,8:[158]PZ:[153]"PRINT#COMMODORE WILL NOT PLAY!":[137]8130
  520. 8110 [151]X,10:[158]PZ:[153]"LISTCOMMODORE WILL PLAY!":N[178]N[170]1:NA$(N)[178]"COMMODORE"
  521. 8130 [151]X,0:[151]Y,19:[158]PZ:[153]"OPENWHAT IS THE DOLLAR GOAL ($10000-$50000)"
  522. 8140 [151]X,15:[151]Y,20:[158]PZ:[153]"=> ":[151]X,18:[158]PZ
  523. 8150 [161]A$:[139]A$[178]""[167]8150
  524. 8160 G[178][197](A$)[172]10000:[139]G[179]10000[176]G[177]50000[167]8140
  525. 8170 [153]"$"G:V[178]53248:[151]V[170]28,7
  526. 8172 [129]L[178]1[164]N:IU(L)[178]0:M(L)[178]1000:S(L)[178]0:PD(L)[178]2000:IN(L)[178]0:IP(L)[178]0:[130]
  527. 8175 [129]L[178]1[164]N[172]3:L(L)[178]0:[130]
  528. 8180 [151]2040,13:[151]2041,14:[151]2042,15:[141]9905:[142]
  529. 8300 [151]X,7:[151]Y,16:[158]PZ:[153]"CLR"NA$(FG%)" WINS!!!"
  530. 8310 [151]X,14:[151]Y,17:[158]PZ:[153]"WITH $"M(FG%)
  531. 8320 [129]L1[178]1[164]10:[151]53280,[181]([187](0)[172]15)[170]1:[151]53281,[194](53280)
  532. 8325 [141]9940:[130]L1
  533. 8330 [151]53280,0:[151]53281,0:[151]X,8:[151]Y,19:[158]PZ
  534. 8335 [141]6300:[141]6300:[141]6400:[151]649,10
  535. 8340 [153]"DO YOU WANT TO PLAY AGAIN?":[141] 8600
  536. 8350 [151]X,8:[151]Y,19:[158]PZ:[139]JV[178]2[167][153]"CONT   THANKS FOR THE GAME!    ":[141]9900:[128]
  537. 8352 JV[178][194](56321):JV[178]15[171](JV[175]15):[158]PZ
  538. 8355 [139]JV[167][153]"DEF       RELEASE JOYSTICK!!      ":[137]8352
  539. 8360 [153]"   ** SYSSAME PLAYERS?  **   ":[141]8600
  540. 8370 [139]JV[178]2[167][141]8040:[137]20
  541. 8380 [141]8130:[137]20
  542. 8600 [151]X,14:[151]Y,21:FG%[178]31:CM%[178]50:CE%[178]33:CF%[178]32
  543. 8610 [158]PZ:[153][199](FG%)"UP=YES   DOWN=NO":[141]9940
  544. 8620 JV[178][194](56321):JV[178]15[171](JV[175]15):[139]JV[167]8650
  545. 8630 [139]FG%[178]28[167]FG%[178]31:[137]8610
  546. 8640 FG%[178]28:[137]8610
  547. 8650 [139]JV[179][177]1[175]JV[179][177]2[167]8610
  548. 8660 [141]350:[158]PZ:[141]9050:[153]"                 ":[142]
  549. 9050 [129]L[178]S[164]S[170]23:[151]L,0:[130]:[142]
  550. 9900 [129]L[178]1[164]500:[130]
  551. 9905 [129]L[178]1[164]400:[130]
  552. 9910 [129]L[178]1[164]100:[130]
  553. 9920 [129]L[178]1[164]100:[130]:[142]
  554. 9930 [129]L[178]1[164]20:[130]
  555. 9940 [129]L[178]1[164]20:[130]
  556. 9950 [129]L[178]1[164]10:[130]:[142]
  557.